home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / TABLES / MTABLE / MTOOLS.PAS < prev    next >
Pascal/Delphi Source File  |  1994-05-31  |  1KB  |  56 lines
  1. library mtools;
  2.  
  3. uses
  4.   Strings,
  5.   WinTypes,
  6.   WinProcs,
  7.   CommDlg;
  8.  
  9. { Trim --------------------------------------------------------------
  10.      Supresses trailing blanks in NULL-terminated string
  11.   ------------------------------------------------------------------- }
  12. function Trim(TrimStr: PChar): PChar; export;
  13. var
  14.   i: Integer;
  15. begin
  16.   Trim := TrimStr;
  17.   for i := StrLen(TrimStr) - 1 downto 0 do
  18.   begin
  19.     if TrimStr[i] = ' ' then
  20.       TrimStr[i] := #0
  21.     else
  22.       Exit;
  23.   end;
  24. end;
  25.  
  26. function GetFont(var LogFont: pLogFont; Owner: HWnd; var Color: tColorRef): Boolean; export;
  27. var
  28.   CFont      : tChooseFont;
  29.   lStyle     : array [0..lf_facesize] of Char;
  30. begin
  31.   with CFont do
  32.   begin
  33.     lStructSize := SizeOf(tChooseFont);
  34.     hWndOwner := Owner;
  35.     hDC := 0;
  36.     lpLogFont := LogFont;
  37.     rgbColors := Color;
  38.     Flags := cf_forcefontexist or cf_inittologfontstruct or cf_limitsize or cf_screenfonts or cf_effects;
  39.     lpszStyle := @lStyle;
  40.     nSizeMin := 8;
  41.     nSizeMax := 32;
  42.   end;
  43.   if ChooseFont(CFont) then
  44.   begin
  45.     Color := CFont.rgbColors;
  46.     GetFont := True
  47.   end
  48.   else
  49.     GetFont := False;
  50. end;
  51.  
  52. Exports
  53.   Trim, GetFont;
  54.  
  55. begin
  56. end.